## Table 1
activity_percentages <- nyc_squirrels_clean %>%
select(running, chasing,climbing, eating, foraging, kuks, quaas, moans, tail_flags, tail_twitches, indifferent, runs_from) %>%
rownames_to_column(var = "ID") %>%
as.data.frame() %>%
pivot_longer(cols = running:runs_from, names_to = "activity",
values_to = "true_false") %>%
group_by(activity) %>%
nest() %>%
mutate(proportion = map(data, ~ .x %>%
pull("true_false") %>%
mean())) %>%
unnest(proportion) %>%
mutate(percentage = 100*proportion) %>%
select(activity, percentage) %>%
mutate(activity = gsub("_", " ", activity),
activity = str_to_title(activity),
percentage = round(percentage, 2),
tooltip_text = paste0(toupper(activity), "\n",
percentage, "%"))
## Table 1
df_table <- nyc_squirrels_clean %>%
select(running, chasing,climbing, eating, foraging, kuks, quaas, moans, tail_flags, tail_twitches, indifferent, runs_from)
df_table_2 <- df_table %>%
pivot_longer(-running, names_to = "activity", values_to = "true_false")
chasing <- nyc_squirrels_clean %>%
group_by(chasing) %>%
summarize(count = n())
climbing <- nyc_squirrels_clean %>%
group_by(climbing) %>%
summarize(count = n())
eating <- nyc_squirrels_clean %>%
group_by(eating) %>%
summarize(count = n())
kuks <- nyc_squirrels_clean %>%
group_by(kuks) %>%
summarize(count = n())
quaas <- nyc_squirrels_clean %>%
group_by(quaas) %>%
summarize(count = n())
moans <- nyc_squirrels_clean %>%
group_by(moans) %>%
summarize(count = n())
tail_flags <- nyc_squirrels_clean %>%
group_by(tail_flags) %>%
summarize(count = n())
tail_twitches <- nyc_squirrels_clean %>%
group_by(tail_twitches) %>%
summarize(count = n())
indifferent <- nyc_squirrels_clean %>%
group_by(indifferent) %>%
summarize(count = n())
runs_from <- nyc_squirrels_clean %>%
group_by(runs_from) %>%
summarize(count = n())